home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / game / patch / jst32b_dev.lha / jst_dev / sources / OSEmu / freeanim.s < prev    next >
Text File  |  2000-03-31  |  699b  |  22 lines
  1. * $Id: freeanim.s 1.1 1999/02/03 04:09:05 jotd Exp $
  2. **************************************************************************
  3. *   FREEANIM-LIBRARY                                                     *
  4. **************************************************************************
  5. **************************************************************************
  6. *   INITIALIZATION                                                       *
  7. **************************************************************************
  8.  
  9. FRANINIT    move.l    _franbase,d0
  10.         beq    .init
  11.         rts
  12.  
  13. .init        move.l    #10,d0        ; at random
  14.         move.l    #2,d1        ; at random
  15.         lea    _franname,a0
  16.         bsr    _InitLibrary
  17.         move.l    d0,a0
  18.         move.l    d0,_franbase
  19.         
  20.         rts
  21.  
  22.